home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
misc
/
nshadow
/
sat-6.bas
< prev
next >
Wrap
BASIC Source File
|
1994-06-23
|
2KB
|
65 lines
5 COLOR 0,13:PRINT
6 PRINT
10 PRINT,"TRUE BEARING AND ELEVATION OF GEO-SYNCHRONOUS SATELLITE."
11 COLOR 15,0:PRINT
12 PRINT
20 P=355/113
30 Z=180/P
40 R=6367
50 H=35800!
60 INPUT "LONGITUDE OF SATELLITE:DG,MN,E OR W";AE,AF,A$
70 AG=AE+AF/60
80 IF A$="W" THEN AG=-AG
90 INPUT "LONGITUDE OF RECEIVER:DG,MN,E OR W";AH,AI,B$
100 AJ=AH+AI/60
110 IF B$="W" THEN AJ=-AJ
120 INPUT "LATITUDE OF RECEIVER:DG,MN,N OR S";AK,AL,C$
130 AM=AK+AL/60
140 IF C$="S" THEN AM=-AM
150 B=AJ-AG
152 IF B > 180 THEN B=B-360
154 J=ABS(B)
156 IF J < 81.3 THEN 160 ELSE 1000
160 AA=B/Z
170 AB=TAN(AA)
180 AC=AM/Z
190 AD=SIN(AC)
191 IF C$="S" THEN 220 ELSE 200
200 ZN=180+Z*(ATN(AB/AD))
211 GOTO 250
220 ZS=Z*(ATN(AB/AD))
250 K=R^2
260 L=(R+H)^2
270 M=2*R*(R+H)
280 N=COS(AA)
290 Q=COS(AC)
300 T=N*Q
310 CA=-ATN(T/SQR(-T*T+1))+1.5708
320 C=Z*CA
330 IF C < 81.3 THEN 370 ELSE 1000
370 S=(K+L-M*T)^.5
380 U=S^2
390 V=(U+K-L)/(2*R*S)
400 W=-ATN(V/SQR(-V*V+1))+1.5708
410 E=Z*W-90
420 PRINT
430 COLOR 0,15:PRINT
440 PRINT
450 PRINT " ***ANSWERS***"
460 PRINT
470 IF J < 81.3 THEN 480 ELSE 1000
480 IF C < 81.3 THEN 484 ELSE 1000
484 IF C$="N" THEN 490 ELSE 500
490 PRINT ZN, " TRUE BEARING OF SATELLITE."
500 IF C$="S" THEN 510 ELSE 520
510 PRINT ZS, " TRUE BEARING OF SATELLITE."
520 PRINT E, " ELEVATION ANGLE OF SATELLITE."
530 GOTO 1020
1000 PRINT:PRINT: PRINT, "SATELLITE IS BELOW THE HORIZON"
1010 PRINT
1020 COLOR 0,10:PRINT
1030 PRINT
1040 PRINT " PROGRAM BY I.L. McNally"
1050 PRINT
1060 COLOR 15,0